home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 14 / Tiger_Disk_014_19xx_Tiger-Crew-Disk_de_Side_B.d64 / > schluss < ! (.txt) next >
Commodore BASIC  |  2023-02-26  |  1KB  |  32 lines
  1. 0 poke53280,.:poke53281,11:fora=1to33:printchr$(147):poke191,1:printtab(16)"[159]achtung!":nexta
  2. 1 s=54272:forl=0to16:pokes+l,0:next:pokes+14,5:pokes+18,16:pokes+3,2
  3. 2 pokes+24,15:pokes+6,255:pokes+4,17:fr=5389:fort=4to109:fq=fr+peek(s+27)*128
  4. 3 hf=int(fq/256):lf=fq-hf*256:pokes+0,lf:pokes+1,hf:pokes+1,lf:pokes+0,hf:next
  5. 4 pokes+24,0
  6. 5 poke53280,11:print"[147]            wir schalten ab!            ":::print"[157][157][157][157][157][145]"
  7. 10 v=13*4096:pokev+21,1:pokev+33,. :pokev+23,1:pokev+29,1:
  8. 15 v1=53248:fors=824to1063:pokes,158:next
  9. 20 form=2040to2044:pokem,13:next
  10. 25 pokev1+21,7:pokev1+40,6:pokev1+41,2:pokev1+29,7:pokev1+23,2
  11. 30 pokev1,24:pokev1+1,240:pokev1+16,190: pokev1+2,170:pokev1+3,190:pokev1+30,7
  12. 35 pokev1+4,230:pokev1+5,240:
  13. 40 poke2040,240:pokev+0,190:pokev+1,120:pokev+39,4:
  14. 45 fori=0to63:reada
  15. 50 poke240*64+i,a:nexti
  16. 55 aa=2:bb=2:
  17. 60 a=peek(v)
  18. 65 b=peek(v+1):ifb=33orb=255thenbb=-bb
  19. 70 ifa=240and(peek(v+16)and1)=1thenaa=-aa
  20. 75 ifa=80and(peek(v+16)and2)=2thenaa=-aa:
  21. 80 ifa=240andaa=1thena=-1:si=1:
  22. 85 ifa=0andaa=-1thena=240:si=0:
  23. 90 a=a+aa:a=aand255:b=b+bb:
  24. 95 pokev+16,si:pokev,b:pokev+1,a
  25. 100 pokev1+2,b:pokev1+4,a:pokev1+5,190
  26. 105 pokev1+41,6:pokev1+40,14:pokev+39,5::
  27. 110 print"[151]es hoert nicht[146] v0n selbst auf![145]":printtab(33)"[152]lukian[145][145][145][145][145][145][145][145][145]"
  28. 115 goto60
  29. 120 data244,88,240,134,84,128,197,82,192,132,212,128,244,88,240
  30. 125 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  31. 130 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  32.